home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / prgtools / prtsut53.zip / SU1SRC.ZIP / FDEMO09.DFM / FDEMO09.txt
Text File  |  1996-12-09  |  18KB  |  679 lines
  1. object Form09: TForm09
  2.   Left = 54
  3.   Top = 295
  4.   Width = 647
  5.   Height = 402
  6.   ActiveControl = Panel1
  7.   Caption = 'Form09'
  8.   Font.Color = clBlack
  9.   Font.Height = -14
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   PixelsPerInch = 120
  13.   Position = poScreenCenter
  14.   OnCreate = FormCreate
  15.   TextHeight = 16
  16.   object Panel1: TPanel
  17.     Left = 0
  18.     Top = 0
  19.     Width = 639
  20.     Height = 50
  21.     Align = alTop
  22.     TabOrder = 0
  23.     object DBNavigator: TDBNavigator
  24.       Left = 10
  25.       Top = 10
  26.       Width = 129
  27.       Height = 31
  28.       DataSource = DataSource1
  29.       VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
  30.       Ctl3D = False
  31.       ParentCtl3D = False
  32.       TabOrder = 0
  33.     end
  34.     object Preview: TBitBtn
  35.       Left = 345
  36.       Top = 9
  37.       Width = 96
  38.       Height = 32
  39.       Caption = 'Pre&View'
  40.       TabOrder = 1
  41.       OnClick = PreviewClick
  42.       Glyph.Data = {
  43.         76010000424D7601000000000000760000002800000020000000100000000100
  44.         04000000000000010000130B0000130B00000000000000000000000000000000
  45.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  46.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  47.         00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
  48.         8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
  49.         8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
  50.         8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
  51.         03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
  52.         03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
  53.         33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
  54.         33333337FFFF7733333333300000033333333337777773333333}
  55.       NumGlyphs = 2
  56.     end
  57.     object Print: TBitBtn
  58.       Left = 448
  59.       Top = 9
  60.       Width = 89
  61.       Height = 32
  62.       Caption = '&Print'
  63.       TabOrder = 2
  64.       OnClick = PrintClick
  65.       Glyph.Data = {
  66.         76010000424D7601000000000000760000002800000020000000100000000100
  67.         04000000000000010000130B0000130B00000000000000000000000000000000
  68.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  69.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  70.         00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
  71.         8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
  72.         8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
  73.         8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
  74.         03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
  75.         03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
  76.         33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
  77.         33333337FFFF7733333333300000033333333337777773333333}
  78.       NumGlyphs = 2
  79.     end
  80.     object Exit: TBitBtn
  81.       Left = 544
  82.       Top = 9
  83.       Width = 89
  84.       Height = 32
  85.       Caption = '&Exit'
  86.       ModalResult = 2
  87.       TabOrder = 3
  88.       Glyph.Data = {
  89.         78010000424D7801000000000000760000002800000020000000100000000100
  90.         04000000000000000000120B0000120B00000000000000000000000000000000
  91.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  92.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
  93.         03333377777777777F333301111111110333337F333333337F33330111111111
  94.         0333337F333333337F333301111111110333337F333333337F33330111111111
  95.         0333337F333333337F333301111111110333337F333333337F33330111111111
  96.         0333337F3333333F7F333301111111B10333337F333333737F33330111111111
  97.         0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
  98.         0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
  99.         0333337F377777337F333301111111110333337F333333337F33330111111111
  100.         0333337FFFFFFFFF7F33330000000000033333777777777773330000}
  101.       NumGlyphs = 2
  102.     end
  103.   end
  104.   object Panel2: TPanel
  105.     Left = 0
  106.     Top = 50
  107.     Width = 639
  108.     Height = 231
  109.     Align = alTop
  110.     BevelInner = bvLowered
  111.     BorderWidth = 4
  112.     Caption = 'Panel2'
  113.     TabOrder = 1
  114.     object ScrollBox: TScrollBox
  115.       Left = 6
  116.       Top = 6
  117.       Width = 627
  118.       Height = 219
  119.       HorzScrollBar.Margin = 6
  120.       HorzScrollBar.Range = 337
  121.       VertScrollBar.Margin = 6
  122.       VertScrollBar.Range = 348
  123.       VertScrollBar.Visible = False
  124.       Align = alClient
  125.       AutoScroll = False
  126.       BorderStyle = bsNone
  127.       TabOrder = 0
  128.       object Label1: TLabel
  129.         Left = -18
  130.         Top = 10
  131.         Width = 108
  132.         Height = 16
  133.         Alignment = taRightJustify
  134.         AutoSize = False
  135.         Caption = 'CustNo'
  136.         FocusControl = EditCustNo
  137.         Font.Color = clBlack
  138.         Font.Height = -13
  139.         Font.Name = 'Arial'
  140.         Font.Style = []
  141.         ParentFont = False
  142.       end
  143.       object Label2: TLabel
  144.         Left = -18
  145.         Top = 36
  146.         Width = 108
  147.         Height = 16
  148.         Alignment = taRightJustify
  149.         AutoSize = False
  150.         Caption = 'Company'
  151.         FocusControl = EditCompany
  152.         Font.Color = clBlack
  153.         Font.Height = -13
  154.         Font.Name = 'Arial'
  155.         Font.Style = []
  156.         ParentFont = False
  157.       end
  158.       object Label3: TLabel
  159.         Left = -18
  160.         Top = 62
  161.         Width = 108
  162.         Height = 16
  163.         Alignment = taRightJustify
  164.         AutoSize = False
  165.         Caption = 'Addr1'
  166.         FocusControl = EditAddr
  167.         Font.Color = clBlack
  168.         Font.Height = -13
  169.         Font.Name = 'Arial'
  170.         Font.Style = []
  171.         ParentFont = False
  172.       end
  173.       object Label4: TLabel
  174.         Left = -18
  175.         Top = 89
  176.         Width = 108
  177.         Height = 16
  178.         Alignment = taRightJustify
  179.         AutoSize = False
  180.         Caption = 'Addr2'
  181.         FocusControl = EditAddr2
  182.         Font.Color = clBlack
  183.         Font.Height = -13
  184.         Font.Name = 'Arial'
  185.         Font.Style = []
  186.         ParentFont = False
  187.       end
  188.       object Label5: TLabel
  189.         Left = -18
  190.         Top = 114
  191.         Width = 108
  192.         Height = 16
  193.         Alignment = taRightJustify
  194.         AutoSize = False
  195.         Caption = 'City'
  196.         FocusControl = EditCity
  197.         Font.Color = clBlack
  198.         Font.Height = -13
  199.         Font.Name = 'Arial'
  200.         Font.Style = []
  201.         ParentFont = False
  202.       end
  203.       object Label6: TLabel
  204.         Left = -18
  205.         Top = 140
  206.         Width = 108
  207.         Height = 16
  208.         Alignment = taRightJustify
  209.         AutoSize = False
  210.         Caption = 'State'
  211.         FocusControl = EditState
  212.         Font.Color = clBlack
  213.         Font.Height = -13
  214.         Font.Name = 'Arial'
  215.         Font.Style = []
  216.         ParentFont = False
  217.       end
  218.       object Label7: TLabel
  219.         Left = -18
  220.         Top = 166
  221.         Width = 108
  222.         Height = 16
  223.         Alignment = taRightJustify
  224.         AutoSize = False
  225.         Caption = 'Zip'
  226.         FocusControl = EditZip
  227.         Font.Color = clBlack
  228.         Font.Height = -13
  229.         Font.Name = 'Arial'
  230.         Font.Style = []
  231.         ParentFont = False
  232.       end
  233.       object Label8: TLabel
  234.         Left = -18
  235.         Top = 192
  236.         Width = 108
  237.         Height = 16
  238.         Alignment = taRightJustify
  239.         AutoSize = False
  240.         Caption = 'Country'
  241.         FocusControl = EditCountry
  242.         Font.Color = clBlack
  243.         Font.Height = -13
  244.         Font.Name = 'Arial'
  245.         Font.Style = []
  246.         ParentFont = False
  247.       end
  248.       object Label9: TLabel
  249.         Left = 360
  250.         Top = 10
  251.         Width = 59
  252.         Height = 16
  253.         Alignment = taRightJustify
  254.         AutoSize = False
  255.         Caption = 'Phone'
  256.         FocusControl = EditPhone
  257.         Font.Color = clBlack
  258.         Font.Height = -13
  259.         Font.Name = 'Arial'
  260.         Font.Style = []
  261.         ParentFont = False
  262.       end
  263.       object Label10: TLabel
  264.         Left = 372
  265.         Top = 36
  266.         Width = 47
  267.         Height = 16
  268.         Alignment = taRightJustify
  269.         AutoSize = False
  270.         Caption = 'FAX'
  271.         FocusControl = EditFAX
  272.         Font.Color = clBlack
  273.         Font.Height = -13
  274.         Font.Name = 'Arial'
  275.         Font.Style = []
  276.         ParentFont = False
  277.       end
  278.       object Label11: TLabel
  279.         Left = 356
  280.         Top = 62
  281.         Width = 63
  282.         Height = 16
  283.         Alignment = taRightJustify
  284.         AutoSize = False
  285.         Caption = 'TaxRate'
  286.         FocusControl = EditTaxRate
  287.         Font.Color = clBlack
  288.         Font.Height = -13
  289.         Font.Name = 'Arial'
  290.         Font.Style = []
  291.         ParentFont = False
  292.       end
  293.       object Label12: TLabel
  294.         Left = 364
  295.         Top = 89
  296.         Width = 55
  297.         Height = 16
  298.         Alignment = taRightJustify
  299.         AutoSize = False
  300.         Caption = 'Contact'
  301.         FocusControl = EditContact
  302.         Font.Color = clBlack
  303.         Font.Height = -13
  304.         Font.Name = 'Arial'
  305.         Font.Style = []
  306.         ParentFont = False
  307.       end
  308.       object Label13: TLabel
  309.         Left = 310
  310.         Top = 114
  311.         Width = 109
  312.         Height = 16
  313.         Alignment = taRightJustify
  314.         AutoSize = False
  315.         Caption = 'LastInvoiceDate'
  316.         FocusControl = EditLastInvoiceDate
  317.         Font.Color = clBlack
  318.         Font.Height = -13
  319.         Font.Name = 'Arial'
  320.         Font.Style = []
  321.         ParentFont = False
  322.       end
  323.       object EditCustNo: TDBEdit
  324.         Left = 97
  325.         Top = 4
  326.         Width = 70
  327.         Height = 24
  328.         Color = clSilver
  329.         DataField = 'CustNo'
  330.         DataSource = DataSource1
  331.         Font.Color = clWhite
  332.         Font.Height = -13
  333.         Font.Name = 'Arial'
  334.         Font.Style = []
  335.         MaxLength = 0
  336.         ParentFont = False
  337.         TabOrder = 0
  338.       end
  339.       object EditCompany: TDBEdit
  340.         Left = 97
  341.         Top = 30
  342.         Width = 210
  343.         Height = 24
  344.         Color = clSilver
  345.         DataField = 'Company'
  346.         DataSource = DataSource1
  347.         Font.Color = clWhite
  348.         Font.Height = -13
  349.         Font.Name = 'Arial'
  350.         Font.Style = []
  351.         MaxLength = 30
  352.         ParentFont = False
  353.         TabOrder = 1
  354.       end
  355.       object EditAddr: TDBEdit
  356.         Left = 97
  357.         Top = 57
  358.         Width = 210
  359.         Height = 24
  360.         Color = clSilver
  361.         DataField = 'Addr1'
  362.         DataSource = DataSource1
  363.         Font.Color = clWhite
  364.         Font.Height = -13
  365.         Font.Name = 'Arial'
  366.         Font.Style = []
  367.         MaxLength = 30
  368.         ParentFont = False
  369.         TabOrder = 2
  370.       end
  371.       object EditAddr2: TDBEdit
  372.         Left = 97
  373.         Top = 83
  374.         Width = 210
  375.         Height = 24
  376.         Color = clSilver
  377.         DataField = 'Addr2'
  378.         DataSource = DataSource1
  379.         Font.Color = clWhite
  380.         Font.Height = -13
  381.         Font.Name = 'Arial'
  382.         Font.Style = []
  383.         MaxLength = 30
  384.         ParentFont = False
  385.         TabOrder = 3
  386.       end
  387.       object EditCity: TDBEdit
  388.         Left = 97
  389.         Top = 109
  390.         Width = 105
  391.         Height = 24
  392.         Color = clSilver
  393.         DataField = 'City'
  394.         DataSource = DataSource1
  395.         Font.Color = clWhite
  396.         Font.Height = -13
  397.         Font.Name = 'Arial'
  398.         Font.Style = []
  399.         MaxLength = 15
  400.         ParentFont = False
  401.         TabOrder = 4
  402.       end
  403.       object EditState: TDBEdit
  404.         Left = 97
  405.         Top = 135
  406.         Width = 140
  407.         Height = 24
  408.         Color = clSilver
  409.         DataField = 'State'
  410.         DataSource = DataSource1
  411.         Font.Color = clWhite
  412.         Font.Height = -13
  413.         Font.Name = 'Arial'
  414.         Font.Style = []
  415.         MaxLength = 20
  416.         ParentFont = False
  417.         TabOrder = 5
  418.       end
  419.       object EditZip: TDBEdit
  420.         Left = 97
  421.         Top = 162
  422.         Width = 70
  423.         Height = 24
  424.         Color = clSilver
  425.         DataField = 'Zip'
  426.         DataSource = DataSource1
  427.         Font.Color = clWhite
  428.         Font.Height = -13
  429.         Font.Name = 'Arial'
  430.         Font.Style = []
  431.         MaxLength = 10
  432.         ParentFont = False
  433.         TabOrder = 6
  434.       end
  435.       object EditCountry: TDBEdit
  436.         Left = 97
  437.         Top = 188
  438.         Width = 140
  439.         Height = 24
  440.         Color = clSilver
  441.         DataField = 'Country'
  442.         DataSource = DataSource1
  443.         Font.Color = clWhite
  444.         Font.Height = -13
  445.         Font.Name = 'Arial'
  446.         Font.Style = []
  447.         MaxLength = 20
  448.         ParentFont = False
  449.         TabOrder = 7
  450.       end
  451.       object EditPhone: TDBEdit
  452.         Left = 425
  453.         Top = 6
  454.         Width = 105
  455.         Height = 24
  456.         Color = clSilver
  457.         DataField = 'Phone'
  458.         DataSource = DataSource1
  459.         Font.Color = clWhite
  460.         Font.Height = -13
  461.         Font.Name = 'Arial'
  462.         Font.Style = []
  463.         MaxLength = 15
  464.         ParentFont = False
  465.         TabOrder = 8
  466.       end
  467.       object EditFAX: TDBEdit
  468.         Left = 425
  469.         Top = 32
  470.         Width = 105
  471.         Height = 24
  472.         Color = clSilver
  473.         DataField = 'FAX'
  474.         DataSource = DataSource1
  475.         Font.Color = clWhite
  476.         Font.Height = -13
  477.         Font.Name = 'Arial'
  478.         Font.Style = []
  479.         MaxLength = 15
  480.         ParentFont = False
  481.         TabOrder = 9
  482.       end
  483.       object EditTaxRate: TDBEdit
  484.         Left = 425
  485.         Top = 58
  486.         Width = 70
  487.         Height = 24
  488.         Color = clSilver
  489.         DataField = 'TaxRate'
  490.         DataSource = DataSource1
  491.         Font.Color = clWhite
  492.         Font.Height = -13
  493.         Font.Name = 'Arial'
  494.         Font.Style = []
  495.         MaxLength = 0
  496.         ParentFont = False
  497.         TabOrder = 10
  498.       end
  499.       object EditContact: TDBEdit
  500.         Left = 425
  501.         Top = 84
  502.         Width = 141
  503.         Height = 24
  504.         Color = clSilver
  505.         DataField = 'Contact'
  506.         DataSource = DataSource1
  507.         Font.Color = clWhite
  508.         Font.Height = -13
  509.         Font.Name = 'Arial'
  510.         Font.Style = []
  511.         MaxLength = 20
  512.         ParentFont = False
  513.         TabOrder = 11
  514.       end
  515.       object EditLastInvoiceDate: TDBEdit
  516.         Left = 425
  517.         Top = 110
  518.         Width = 160
  519.         Height = 24
  520.         Color = clSilver
  521.         DataField = 'LastInvoiceDate'
  522.         DataSource = DataSource1
  523.         Font.Color = clWhite
  524.         Font.Height = -13
  525.         Font.Name = 'Arial'
  526.         Font.Style = []
  527.         MaxLength = 0
  528.         ParentFont = False
  529.         TabOrder = 12
  530.       end
  531.     end
  532.   end
  533.   object Panel3: TPanel
  534.     Left = 0
  535.     Top = 281
  536.     Width = 639
  537.     Height = 94
  538.     Align = alClient
  539.     BevelInner = bvLowered
  540.     BorderWidth = 4
  541.     Caption = 'Panel3'
  542.     TabOrder = 2
  543.     object DBGrid1: TDBGrid
  544.       Left = 6
  545.       Top = 6
  546.       Width = 627
  547.       Height = 82
  548.       Align = alClient
  549.       BorderStyle = bsNone
  550.       DataSource = DataSource2
  551.       Font.Color = clBlack
  552.       Font.Height = -13
  553.       Font.Name = 'Arial'
  554.       Font.Style = []
  555.       ParentFont = False
  556.       TabOrder = 0
  557.       TitleFont.Color = clBlack
  558.       TitleFont.Height = -13
  559.       TitleFont.Name = 'Arial'
  560.       TitleFont.Style = [fsBold]
  561.     end
  562.   end
  563.   object DataSource1: TDataSource
  564.     DataSet = Table1
  565.     Left = 191
  566.     Top = 5
  567.   end
  568.   object DataSource2: TDataSource
  569.     DataSet = Table2
  570.     Left = 253
  571.     Top = 5
  572.   end
  573.   object Table1: TTable
  574.     Active = True
  575.     DatabaseName = 'DBDEMOS'
  576.     TableName = 'customer.db'
  577.     Left = 164
  578.     Top = 5
  579.   end
  580.   object Table2: TTable
  581.     Active = True
  582.     DatabaseName = 'DBDEMOS'
  583.     IndexFieldNames = 'CustNo'
  584.     MasterFields = 'CustNo'
  585.     MasterSource = DataSource1
  586.     TableName = 'orders.db'
  587.     Left = 218
  588.     Top = 5
  589.     object Table2OrderNo: TFloatField
  590.       FieldName = 'OrderNo'
  591.     end
  592.     object Table2CustNo: TFloatField
  593.       FieldName = 'CustNo'
  594.       Required = True
  595.       Visible = False
  596.     end
  597.     object Table2SaleDate: TDateTimeField
  598.       FieldName = 'SaleDate'
  599.     end
  600.     object Table2ShipDate: TDateTimeField
  601.       FieldName = 'ShipDate'
  602.     end
  603.     object Table2ShipVIA: TStringField
  604.       FieldName = 'ShipVIA'
  605.       Size = 7
  606.     end
  607.     object Table2Terms: TStringField
  608.       FieldName = 'Terms'
  609.       Size = 6
  610.     end
  611.     object Table2PaymentMethod: TStringField
  612.       FieldName = 'PaymentMethod'
  613.       Size = 7
  614.     end
  615.     object Table2ItemsTotal: TCurrencyField
  616.       FieldName = 'ItemsTotal'
  617.       Currency = True
  618.     end
  619.     object Table2AmountPaid: TCurrencyField
  620.       FieldName = 'AmountPaid'
  621.       Currency = True
  622.     end
  623.   end
  624.   object DBPrintWin1: TDBPrintWin
  625.     About = 'Version 5.32'
  626.     AboutRegistered = 'TOM SNIDER'
  627.     HeaderFont.Color = clWindowText
  628.     HeaderFont.Height = 16
  629.     HeaderFont.Name = 'Arial'
  630.     HeaderFont.Style = []
  631.     Font.Color = clWindowText
  632.     Font.Height = 16
  633.     Font.Name = 'Arial'
  634.     Font.Style = []
  635.     FooterFont.Color = clWindowText
  636.     FooterFont.Height = 12
  637.     FooterFont.Name = 'Arial'
  638.     FooterFont.Style = []
  639.     FrameObjects = True
  640.     clBtnFaceAsWhite = True
  641.     OutputTo = poViewer
  642.     Orientation = Default
  643.     Units = poInches
  644.     ViewButtonVisible = False
  645.     ShowCancelDialog = True
  646.     LineWidth = 0
  647.     Copies = 1
  648.     GridBackDrop = False
  649.     GridBackDropUnits = poInches
  650.     ZoomPercentage = 25.000000000000000000
  651.     HeaderTop = 0.500000000000000000
  652.     HeaderLeft = 0.500000000000000000
  653.     HeaderStringLeft = '                                  '
  654.     HeaderStringCenter = '                                  '
  655.     HeaderStringRight = '                                  '
  656.     HeaderEnabled = True
  657.     HeaderOutlined = False
  658.     HeaderFilled = False
  659.     TextColor = clBlack
  660.     ViewBkColor = 11234567
  661.     ViewHeading = 'Printit Viewer'
  662.     HeadingColor = clSilver
  663.     FrameStyle = frThin
  664.     FooterTop = 10.170000000000000000
  665.     FooterString = '                                                  '
  666.     FooterEnabled = True
  667.     FooterOutlined = False
  668.     FooterFilled = False
  669.     FixSansSerif = True
  670.     FooterStringLeft = 'Printed on @Date at @Time'
  671.     FooterStringRight = 'Page @Page'
  672.     BorderLeft = 0.500000000000000000
  673.     BorderRight = 0.500000000000000000
  674.     LineSpacing = 2.800000000000000000
  675.     Left = 574
  676.     Top = 88
  677.   end
  678. end
  679.